home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / assembly / abakus.lha / Abakus / Demos / For_Next.a.asm < prev    next >
Assembly Source File  |  1995-06-27  |  673b  |  42 lines
  1.  
  2.     Include "Abakus:I/StartWB"
  3.     Include "Abakus:I/SLI"
  4.     Include "Abakus:I/Tools1.m"
  5.  
  6.     Input  
  7.     move.l  d0,stdin
  8.     Output  
  9.     move.l  d0,stdout
  10.  
  11.     move.b  #48,zz
  12.     move.b  #57,d7
  13.     bra _FCFORROUT_a1
  14. _FCFORLOOP_a1
  15.     add.b  #1,zz
  16.     cmp.b  zz,d7
  17.     blt _FCEXITFOR_a1
  18. _FCFORROUT_a1
  19.     Write  stdout,#zz,#1
  20.     bra _FCFORLOOP_a1
  21. _FCEXITFOR_a1
  22.  
  23.     Write  stdout,#lf,#1
  24.  
  25.     move.b  #"A",zz
  26.     move.b  #"z",d7
  27.     bra _FCFORROUT_a2
  28. _FCFORLOOP_a2
  29.     add.b  #3,zz
  30.     cmp.b  zz,d7
  31.     blt _FCEXITFOR_a2
  32. _FCFORROUT_a2
  33.     Write  stdout,#zz,#1
  34.     bra _FCFORLOOP_a2
  35. _FCEXITFOR_a2
  36.  
  37.     rts 
  38. zz  dc.b 0
  39. lf  dc.b 10
  40.     Include "Abakus:I/Tools1.s"
  41.     End
  42.